У меня есть набор данных, как указано ниже имя col1 col2 а 10,3 10,9 б 11 15 в 20 7,2 г 6,2 6,2 e 5,3 5,4 ж 4,5 4,0 Я хочу сравнить col1 и col2 моего df, и я хочу сделать другой столбец, в котором при сравнении значений col1 и col2, если значение col2 увеличивается с col1, я хочу ввести увеличение рядом с ними в моем столбце, и если они уменьшение, то я хочу написать уменьшение и никаких изменений, если они такие же и я хочу, чтобы мой результат был таким имя col1 col2 col3 10,3 10,9 увеличивается b 11 15 увеличение в 20 7,2 убывающая d 6,2 6,2 без изменений e 5,3 5,4 увеличение f 4.5 4.0 убывающая
2021-01-31 08:15:56
С dplyr:
df%>%
мутировать (Col3 = ifelse (col2 == col1,
"без изменений",
ifelse (col2> col1,
"возрастающий", "убывающий")))
Или используя case_when, как предлагает @akrun:
df%>%
mutate (Col3 = case_when (col1 == col2 ~ "без изменений",
col2> col1 ~ "Увеличение",
ИСТИНА ~ "убывает"))
Результат:
имя col1 col2 Col3
1 a 10,3 10,9 увеличивается
2 б 11,0 15,0 возрастает
3 c 20,0 7,2 убывающая
4 д 6,2 6,2 без изменений
5 e 5,3 5,4 увеличивается
6 ж 4,5 4,0 убывающая
Данные:
df <-structure (list (name = c ("a", "b", "c", "d", "e", "f"), col1 = c (10.3,
11, 20, 6.2, 5.3, 4.5), col2 = c (10.9, 15, 7.2, 6.2, 5.4, 4)), class = "data.frame", row.names = c (NA,
-6L))
|
Мы можем вычесть col1 на col2, а затем использовать знак для присвоения значений
df $ col3 <- c («убывающий», «без изменений», «возрастающий») [sign (df $ col1 - df $ col2) + 2]
df
# name col1 col2 col3
# 1 а 10,3 10,9 убывает
# 2 б 11,0 15,0 убывает
# 3 c 20,0 7,2 увеличение
# 4 d 6.2 6.2 без изменений
# 5 e 5,3 5,4 убывает
# 6 f 4.5 4.0 увеличение
Или с помощью dplyr мы можем использовать case_when
библиотека (dplyr)
df%>%
mutate (col3 = case_when (col1 == col2 ~ "без изменений",
col1> col2 ~ "возрастающий",
ИСТИНА ~ "убывает"))
|
База R
df $ col3 <-with (df, ifelse (col1> col2, "по убыванию",
ifelse (col1